﻿Public Class Captura_meta

    Private Sub Captura_meta_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub btnCap_meta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCap_meta.Click
        Dim fila As DataRow
        For Each fila In dsMetas.Tables("METAS").Rows
            fila(0) = 25
        Next
    End Sub
End Class